Code solution A1000